home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1999 February
/
EnigmA AMIGA RUN 34 (1999)(G.R. Edizioni)(IT)[!][issue 1999-02].iso
/
www
/
active-net
/
support
/
updates
/
stfax32upd.lha
/
Update STFax
< prev
next >
Wrap
Text File
|
1998-03-13
|
4KB
|
147 lines
; $VER: STFax-Update 1.2 (8.3.98)
;
; Script by Simone Tellini <wiz@pragmanet.it>
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; set initial variables
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(set @app-name "STFax Professional")
(set OldVersion "3.1")
(set NewVersion "3.2")
(set OldFile "STFax:STFax")
(set OldSize 371920)
(set PatchFile "STFax.patch")
(set @error-msg "An unexpected error has occured. Installation aborted.")
(if (= (exists OldFile (noreq)) 0)
(if (= (exists (cat OldFile ".old") (noreq)) 0)
(abort @app-name OldVersion " has not been found!")
(set OldFile (cat OldFile ".old"))
)
)
(if (<> (getsize OldFile) OldSize)
(abort @app-name " has a different size than the expected one, "
"patch can't be applied.")
)
(complete 0)
(welcome)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Patch the file
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (<> OldFile "STFax:STFax.old")
(
(if (exists "STFax:STFax.old")
(delete "STFax:STFax.old")
)
(rename OldFile "STFax:STFax.old")
(set OldFile (cat OldFile ".old"))
)
)
(complete 20)
(working "Applying the patch...")
(run (cat "Patch " OldFile " STFax:STFax " PatchFile)
(prompt "Applying the patch...")
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Copy docs, if they exists
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (exists "STFax.guide")
(copyfiles
(source "STFax.guide")
(dest "STFax:")
)
)
(complete 35)
(if (exists "History.txt")
(copyfiles
(source "History.txt")
(dest "STFax:")
)
)
(complete 40)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Install new catalogs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (exists "Catalogs")
(copyfiles
(prompt "Updating catalog files")
(help @copyfiles-help)
(source "Catalogs")
(dest "STFax:Catalogs")
(choices "italiano")
(confirm)
)
)
(complete 60)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Copy Textinput.mcc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (exists "MUI/Textinput.mcc")
(copylib
(prompt "Installing updated MUI classes... (Textinput.mcc)")
(help "This will install some MUI classes needed by STFax")
(source "MUI/Textinput.mcc")
(dest "MUI:Libs/MUI")
(confirm)
)
(complete 70)
(copylib
(prompt "Installing updated MUI classes... (Textinput.mcp)")
(help "This will install some MUI classes needed by STFax")
(source "MUI/Textinput.mcp")
(dest "MUI:Libs/MUI")
(confirm)
)
(complete 85)
(copylib
(prompt "Installing updated MUI classes... (Textinputscroll.mcc)")
(help "This will install some MUI classes needed by STFax")
(source "MUI/Textinputscroll.mcc")
(dest "MUI:Libs/MUI")
(confirm)
)
)
(complete 90)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; End
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(message @app-name " has been upgraded from version " OldVersion " to " NewVersion
"\n\nThe old STFax version has been renamed as STFax:STFax.old")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; All done.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(complete 100)